/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / emacs-complete / fsf / emacs / lisp / ielm.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 46 72 69 20 | 4a 75 6e 20 31 30 20 31 | on Fri |Jun 10 1|
|00000040| 39 3a 30 35 3a 34 36 20 | 31 39 39 34 0a 3b 3b 3b |9:05:46 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 69 65 6c 6d 2e | 65 6c 0a 3b 3b 3b 20 65 |sp/ielm.|el.;;; e|
|00000080| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 31 39 2e |macs ver|sion 19.|
|00000090| 32 35 2e 33 2e 0a 3b 3b | 3b 20 62 79 74 65 63 6f |25.3..;;|; byteco|
|000000a0| 6d 70 20 76 65 72 73 69 | 6f 6e 20 46 53 46 20 32 |mp versi|on FSF 2|
|000000b0| 2e 31 30 0a 3b 3b 3b 20 | 6f 70 74 69 6d 69 7a 61 |.10.;;; |optimiza|
|000000c0| 74 69 6f 6e 20 69 73 20 | 6f 6e 2e 0a 3b 3b 3b 20 |tion is |on..;;; |
|000000d0| 74 68 69 73 20 66 69 6c | 65 20 75 73 65 73 20 6f |this fil|e uses o|
|000000e0| 70 63 6f 64 65 73 20 77 | 68 69 63 68 20 64 6f 20 |pcodes w|hich do |
|000000f0| 6e 6f 74 20 65 78 69 73 | 74 20 69 6e 20 45 6d 61 |not exis|t in Ema|
|00000100| 63 73 20 31 38 2e 0a 0a | 28 69 66 20 28 61 6e 64 |cs 18...|(if (and|
|00000110| 20 28 62 6f 75 6e 64 70 | 20 27 65 6d 61 63 73 2d | (boundp| 'emacs-|
|00000120| 76 65 72 73 69 6f 6e 29 | 0a 09 20 28 6f 72 20 28 |version)|.. (or (|
|00000130| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 70 6f |and (bou|ndp 'epo|
|00000140| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 20 65 70 6f |ch::vers|ion) epo|
|00000150| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 0a 09 20 20 |ch::vers|ion)..  |
|00000160| 20 20 20 28 73 74 72 69 | 6e 67 2d 6c 65 73 73 70 |   (stri|ng-lessp|
|00000170| 20 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 20 22 | emacs-v|ersion "|
|00000180| 31 39 22 29 29 29 0a 20 | 20 20 20 28 65 72 72 6f |19"))). |   (erro|
|00000190| 72 20 22 60 2f 67 64 2f | 67 6e 75 2f 65 6d 61 63 |r "`/gd/|gnu/emac|
|000001a0| 73 2f 31 39 2e 30 2f 6c | 69 73 70 2f 69 65 6c 6d |s/19.0/l|isp/ielm|
|000001b0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|000001c0| 64 20 66 6f 72 20 45 6d | 61 63 73 20 31 39 22 29 |d for Em|acs 19")|
|000001d0| 29 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |)..(byte|-code ".|
|000001e0| c1 21 88 c0 c2 21 87 22 | 20 5b 72 65 71 75 69 72 |.!...!."| [requir|
|000001f0| 65 20 63 6f 6d 69 6e 74 | 20 70 70 5d 20 32 29 0a |e comint| pp] 2).|
|00000200| 28 64 65 66 76 61 72 20 | 69 65 6c 6d 2d 6e 6f 69 |(defvar |ielm-noi|
|00000210| 73 79 20 74 20 22 5c 0a | 2a 49 66 20 6e 6f 6e 2d |sy t "\.|*If non-|
|00000220| 6e 69 6c 2c 20 49 45 4c | 4d 20 77 69 6c 6c 20 62 |nil, IEL|M will b|
|00000230| 65 65 70 20 6f 6e 20 65 | 72 72 6f 72 2e 22 29 0a |eep on e|rror.").|
|00000240| 28 64 65 66 76 61 72 20 | 69 65 6c 6d 2d 70 72 6f |(defvar |ielm-pro|
|00000250| 6d 70 74 20 22 45 4c 49 | 53 50 3e 20 22 20 22 5c |mpt "ELI|SP> " "\|
|00000260| 0a 50 72 6f 6d 70 74 20 | 75 73 65 64 20 69 6e 20 |.Prompt |used in |
|00000270| 49 45 4c 4d 2e 22 29 0a | 28 64 65 66 76 61 72 20 |IELM.").|(defvar |
|00000280| 69 65 6c 6d 2d 64 79 6e | 61 6d 69 63 2d 72 65 74 |ielm-dyn|amic-ret|
|00000290| 75 72 6e 20 74 20 22 5c | 0a 2a 43 6f 6e 74 72 6f |urn t "\|.*Contro|
|000002a0| 6c 73 20 77 68 65 74 68 | 65 72 20 5c 5c 3c 69 65 |ls wheth|er \\<ie|
|000002b0| 6c 6d 2d 6d 61 70 3e 5c | 5c 5b 69 65 6c 6d 2d 72 |lm-map>\|\[ielm-r|
|000002c0| 65 74 75 72 6e 5d 20 68 | 61 73 20 69 6e 74 65 6c |eturn] h|as intel|
|000002d0| 6c 69 67 65 6e 74 20 62 | 65 68 61 76 69 6f 75 72 |ligent b|ehaviour|
|000002e0| 20 69 6e 20 49 45 4c 4d | 2e 0a 49 66 20 6e 6f 6e | in IELM|..If non|
|000002f0| 2d 6e 69 6c 2c 20 5c 5c | 5b 69 65 6c 6d 2d 72 65 |-nil, \\|[ielm-re|
|00000300| 74 75 72 6e 5d 20 65 76 | 61 6c 75 61 74 65 73 20 |turn] ev|aluates |
|00000310| 69 6e 70 75 74 20 66 6f | 72 20 63 6f 6d 70 6c 65 |input fo|r comple|
|00000320| 74 65 20 73 65 78 70 73 | 2c 20 6f 72 20 69 6e 73 |te sexps|, or ins|
|00000330| 65 72 74 73 20 61 20 6e | 65 77 6c 69 6e 65 0a 61 |erts a n|ewline.a|
|00000340| 6e 64 20 69 6e 64 65 6e | 74 73 20 66 6f 72 20 69 |nd inden|ts for i|
|00000350| 6e 63 6f 6d 70 6c 65 74 | 65 20 73 65 78 70 73 2e |ncomplet|e sexps.|
|00000360| 20 20 49 66 20 6e 69 6c | 2c 20 61 6c 77 61 79 73 |  If nil|, always|
|00000370| 20 69 6e 73 65 72 74 73 | 20 6e 65 77 6c 69 6e 65 | inserts| newline|
|00000380| 73 2e 22 29 0a 28 64 65 | 66 76 61 72 20 69 65 6c |s.").(de|fvar iel|
|00000390| 6d 2d 64 79 6e 61 6d 69 | 63 2d 6d 75 6c 74 69 6c |m-dynami|c-multil|
|000003a0| 69 6e 65 2d 69 6e 70 75 | 74 73 20 74 20 22 5c 0a |ine-inpu|ts t "\.|
|000003b0| 2a 46 6f 72 63 65 20 6d | 75 6c 74 69 6c 69 6e 65 |*Force m|ultiline|
|000003c0| 20 69 6e 70 75 74 73 20 | 74 6f 20 73 74 61 72 74 | inputs |to start|
|000003d0| 20 66 72 6f 6d 20 63 6f | 6c 75 6d 6e 20 7a 65 72 | from co|lumn zer|
|000003e0| 6f 3f 0a 49 66 20 6e 6f | 6e 2d 6e 69 6c 2c 20 61 |o?.If no|n-nil, a|
|000003f0| 66 74 65 72 20 65 6e 74 | 65 72 69 6e 67 20 74 68 |fter ent|ering th|
|00000400| 65 20 66 69 72 73 74 20 | 6c 69 6e 65 20 6f 66 20 |e first |line of |
|00000410| 61 6e 20 69 6e 63 6f 6d | 70 6c 65 74 65 20 73 65 |an incom|plete se|
|00000420| 78 70 2c 20 61 20 6e 65 | 77 6c 69 6e 65 0a 77 69 |xp, a ne|wline.wi|
|00000430| 6c 6c 20 62 65 20 69 6e | 73 65 72 74 65 64 20 61 |ll be in|serted a|
|00000440| 66 74 65 72 20 74 68 65 | 20 70 72 6f 6d 70 74 2c |fter the| prompt,|
|00000450| 20 6d 6f 76 69 6e 67 20 | 74 68 65 20 69 6e 70 75 | moving |the inpu|
|00000460| 74 20 74 6f 20 74 68 65 | 20 6e 65 78 74 20 6c 69 |t to the| next li|
|00000470| 6e 65 2e 0a 54 68 69 73 | 20 67 69 76 65 73 20 6d |ne..This| gives m|
|00000480| 6f 72 65 20 66 72 61 6d | 65 20 77 69 64 74 68 20 |ore fram|e width |
|00000490| 66 6f 72 20 6c 61 72 67 | 65 20 69 6e 64 65 6e 74 |for larg|e indent|
|000004a0| 65 64 20 73 65 78 70 73 | 2c 20 61 6e 64 20 61 6c |ed sexps|, and al|
|000004b0| 6c 6f 77 73 20 66 75 6e | 63 74 69 6f 6e 73 0a 73 |lows fun|ctions.s|
|000004c0| 75 63 68 20 61 73 20 60 | 65 64 65 62 75 67 2d 64 |uch as `|edebug-d|
|000004d0| 65 66 75 6e 27 20 74 6f | 20 77 6f 72 6b 20 77 69 |efun' to| work wi|
|000004e0| 74 68 20 73 75 63 68 20 | 69 6e 70 75 74 73 2e 22 |th such |inputs."|
|000004f0| 29 0a 28 64 65 66 76 61 | 72 20 69 65 6c 6d 2d 6d |).(defva|r ielm-m|
|00000500| 6f 64 65 2d 68 6f 6f 6b | 20 6e 69 6c 20 22 5c 0a |ode-hook| nil "\.|
|00000510| 2a 48 6f 6f 6b 73 20 74 | 6f 20 62 65 20 72 75 6e |*Hooks t|o be run|
|00000520| 20 77 68 65 6e 20 49 45 | 4c 4d 20 28 60 69 6e 66 | when IE|LM (`inf|
|00000530| 65 72 69 6f 72 2d 65 6d | 61 63 73 2d 6c 69 73 70 |erior-em|acs-lisp|
|00000540| 2d 6d 6f 64 65 27 29 20 | 69 73 20 73 74 61 72 74 |-mode') |is start|
|00000550| 65 64 2e 22 29 0a 28 64 | 65 66 76 61 72 20 69 65 |ed.").(d|efvar ie|
|00000560| 6c 6d 2d 77 6f 72 6b 69 | 6e 67 2d 62 75 66 66 65 |lm-worki|ng-buffe|
|00000570| 72 20 6e 69 6c 20 22 5c | 0a 42 75 66 66 65 72 20 |r nil "\|.Buffer |
|00000580| 69 6e 20 77 68 69 63 68 | 20 49 45 4c 4d 20 73 65 |in which| IELM se|
|00000590| 78 70 73 20 77 69 6c 6c | 20 62 65 20 65 76 61 6c |xps will| be eval|
|000005a0| 75 61 74 65 64 2e 0a 54 | 68 69 73 20 76 61 72 69 |uated..T|his vari|
|000005b0| 61 62 6c 65 20 69 73 20 | 62 75 66 66 65 72 2d 6c |able is |buffer-l|
|000005c0| 6f 63 61 6c 2e 22 29 0a | 28 64 65 66 76 61 72 20 |ocal.").|(defvar |
|000005d0| 69 65 6c 6d 2d 68 65 61 | 64 65 72 20 28 62 79 74 |ielm-hea|der (byt|
|000005e0| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 c3 4f c4 c5 52 |e-code "|....O..R|
|000005f0| 87 22 20 5b 22 2a 2a 2a | 20 57 65 6c 63 6f 6d 65 |." ["***| Welcome|
|00000600| 20 74 6f 20 49 45 4c 4d | 20 76 65 72 73 69 6f 6e | to IELM| version|
|00000610| 20 22 20 22 24 52 65 76 | 69 73 69 6f 6e 3a 20 31 | " "$Rev|ision: 1|
|00000620| 2e 33 20 24 22 20 31 31 | 20 2d 32 20 22 20 2a 2a |.3 $" 11| -2 " **|
|00000630| 2a 20 20 54 79 70 65 20 | 28 64 65 73 63 72 69 62 |*  Type |(describ|
|00000640| 65 2d 6d 6f 64 65 29 20 | 66 6f 72 20 68 65 6c 70 |e-mode) |for help|
|00000650| 2e 5c 6e 22 20 22 49 45 | 4c 4d 20 68 61 73 20 41 |.\n" "IE|LM has A|
|00000660| 42 53 4f 4c 55 54 45 4c | 59 20 4e 4f 20 57 41 52 |BSOLUTEL|Y NO WAR|
|00000670| 52 41 4e 54 59 3b 20 74 | 79 70 65 20 28 64 65 73 |RANTY; t|ype (des|
|00000680| 63 72 69 62 65 2d 6e 6f | 2d 77 61 72 72 61 6e 74 |cribe-no|-warrant|
|00000690| 79 29 20 66 6f 72 20 64 | 65 74 61 69 6c 73 2e 5c |y) for d|etails.\|
|000006a0| 6e 22 5d 20 34 29 20 22 | 5c 0a 4d 65 73 73 61 67 |n"] 4) "|\.Messag|
|000006b0| 65 20 74 6f 20 64 69 73 | 70 6c 61 79 20 77 68 65 |e to dis|play whe|
|000006c0| 6e 20 49 45 4c 4d 20 69 | 73 20 73 74 61 72 74 65 |n IELM i|s starte|
|000006d0| 64 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |d.").(by|te-code |
|000006e0| 22 c0 c1 21 84 08 00 c2 | 11 09 84 66 00 c3 c4 0d |"..!....|...f....|
|000006f0| 5c 22 83 1f 00 c6 20 11 | c7 09 0e 08 5c 22 88 82 |\".... .|....\"..|
|00000700| 24 00 c9 0e 08 42 11 ca | 09 cb cc 23 88 ca 09 cd |$....B..|...#....|
|00000710| ce 23 88 ca 09 cf d0 23 | 88 ca 09 d1 d2 23 88 ca |.#.....#|.....#..|
|00000720| 09 d3 d4 23 88 ca 09 d5 | d6 23 88 ca 09 d7 d8 23 |...#....|.#.....#|
|00000730| 88 ca 09 d9 da 23 88 ca | 09 db dc 23 88 ca 09 dd |.....#..|...#....|
|00000740| de 23 88 ca 09 df e0 23 | 88 c2 87 22 20 5b 62 6f |.#.....#|..." [bo|
|00000750| 75 6e 64 70 20 69 65 6c | 6d 2d 6d 61 70 20 6e 69 |undp iel|m-map ni|
|00000760| 6c 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |l string|-match "|
|00000770| 4c 75 63 69 64 22 20 65 | 6d 61 63 73 2d 76 65 72 |Lucid" e|macs-ver|
|00000780| 73 69 6f 6e 20 6d 61 6b | 65 2d 73 70 61 72 73 65 |sion mak|e-sparse|
|00000790| 2d 6b 65 79 6d 61 70 20 | 73 65 74 2d 6b 65 79 6d |-keymap |set-keym|
|000007a0| 61 70 2d 70 61 72 65 6e | 74 20 63 6f 6d 69 6e 74 |ap-paren|t comint|
|000007b0| 2d 6d 6f 64 65 2d 6d 61 | 70 20 6b 65 79 6d 61 70 |-mode-ma|p keymap|
|000007c0| 20 64 65 66 69 6e 65 2d | 6b 65 79 20 22 09 22 20 | define-|key "." |
|000007d0| 63 6f 6d 69 6e 74 2d 64 | 79 6e 61 6d 69 63 2d 63 |comint-d|ynamic-c|
|000007e0| 6f 6d 70 6c 65 74 65 20 | 22 0d 22 20 69 65 6c 6d |omplete |"." ielm|
|000007f0| 2d 72 65 74 75 72 6e 20 | 22 5c 6e 22 20 69 65 6c |-return |"\n" iel|
|00000800| 6d 2d 73 65 6e 64 2d 69 | 6e 70 75 74 20 22 1b 18 |m-send-i|nput "..|
|00000810| 22 20 65 76 61 6c 2d 64 | 65 66 75 6e 20 22 1b 09 |" eval-d|efun "..|
|00000820| 22 20 6c 69 73 70 2d 63 | 6f 6d 70 6c 65 74 65 2d |" lisp-c|omplete-|
|00000830| 73 79 6d 62 6f 6c 20 22 | 1b 11 22 20 69 6e 64 65 |symbol "|.." inde|
|00000840| 6e 74 2d 73 65 78 70 20 | 22 1b 71 22 20 6c 69 73 |nt-sexp |".q" lis|
|00000850| 70 2d 66 69 6c 6c 2d 70 | 61 72 61 67 72 61 70 68 |p-fill-p|aragraph|
|00000860| 20 22 7f 22 20 62 61 63 | 6b 77 61 72 64 2d 64 65 | "." bac|kward-de|
|00000870| 6c 65 74 65 2d 63 68 61 | 72 2d 75 6e 74 61 62 69 |lete-cha|r-untabi|
|00000880| 66 79 20 22 03 02 22 20 | 69 65 6c 6d 2d 63 68 61 |fy ".." |ielm-cha|
|00000890| 6e 67 65 2d 77 6f 72 6b | 69 6e 67 2d 62 75 66 66 |nge-work|ing-buff|
|000008a0| 65 72 20 22 03 06 22 20 | 69 65 6c 6d 2d 64 69 73 |er ".." |ielm-dis|
|000008b0| 70 6c 61 79 2d 77 6f 72 | 6b 69 6e 67 2d 62 75 66 |play-wor|king-buf|
|000008c0| 66 65 72 20 22 03 16 22 | 20 69 65 6c 6d 2d 70 72 |fer ".."| ielm-pr|
|000008d0| 69 6e 74 2d 77 6f 72 6b | 69 6e 67 2d 62 75 66 66 |int-work|ing-buff|
|000008e0| 65 72 5d 20 34 29 0a 28 | 64 65 66 61 6c 69 61 73 |er] 4).(|defalias|
|000008f0| 20 27 69 65 6c 6d 2d 74 | 61 62 20 23 5b 6e 69 6c | 'ielm-t|ab #[nil|
|00000900| 20 22 68 c0 3d 84 0d 00 | 68 7a c1 3d 85 11 00 c2 | "h.=...|hz.=....|
|00000910| 20 88 c3 87 22 20 5b 31 | 30 20 33 32 20 69 65 6c | ..." [1|0 32 iel|
|00000920| 6d 2d 69 6e 64 65 6e 74 | 2d 6c 69 6e 65 20 74 5d |m-indent|-line t]|
|00000930| 20 32 20 22 5c 0a 50 6f | 73 73 69 62 6c 79 20 69 | 2 "\.Po|ssibly i|
|00000940| 6e 64 65 6e 74 20 74 68 | 65 20 63 75 72 72 65 6e |ndent th|e curren|
|00000950| 74 20 6c 69 6e 65 20 61 | 73 20 6c 69 73 70 20 63 |t line a|s lisp c|
|00000960| 6f 64 65 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |ode." ni|l]).(def|
|00000970| 61 6c 69 61 73 20 27 69 | 65 6c 6d 2d 63 6f 6d 70 |alias 'i|elm-comp|
|00000980| 6c 65 74 65 2d 73 79 6d | 62 6f 6c 20 23 5b 6e 69 |lete-sym|bol #[ni|
|00000990| 6c 20 22 c0 20 19 c2 c3 | 21 89 1c 85 0e 00 c0 5c |l ". ...|!......\|
|000009a0| 66 21 1d c6 20 88 09 c0 | 20 55 3f 86 2a 00 5c 66 |f!.. ...| U?.*.\f|
|000009b0| 83 27 00 0d c0 5c 66 21 | 55 3f 82 2a 00 c2 c3 21 |.'...\f!|U?.*...!|
|000009c0| 2b 87 22 20 5b 62 75 66 | 66 65 72 2d 6d 6f 64 69 |+." [buf|fer-modi|
|000009d0| 66 69 65 64 2d 74 69 63 | 6b 20 62 74 69 63 6b 20 |fied-tic|k btick |
|000009e0| 67 65 74 2d 62 75 66 66 | 65 72 20 22 2a 43 6f 6d |get-buff|er "*Com|
|000009f0| 70 6c 65 74 69 6f 6e 73 | 2a 22 20 63 62 75 66 66 |pletions|*" cbuff|
|00000a00| 65 72 20 63 74 69 63 6b | 20 6c 69 73 70 2d 63 6f |er ctick| lisp-co|
|00000a10| 6d 70 6c 65 74 65 2d 73 | 79 6d 62 6f 6c 5d 20 34 |mplete-s|ymbol] 4|
|00000a20| 20 22 5c 0a 43 6f 6d 70 | 6c 65 74 65 20 74 68 65 | "\.Comp|lete the|
|00000a30| 20 6c 69 73 70 20 73 79 | 6d 62 6f 6c 20 62 65 66 | lisp sy|mbol bef|
|00000a40| 6f 72 65 20 70 6f 69 6e | 74 2e 22 5d 29 0a 28 64 |ore poin|t."]).(d|
|00000a50| 65 66 61 6c 69 61 73 20 | 27 69 65 6c 6d 2d 63 6f |efalias |'ielm-co|
|00000a60| 6d 70 6c 65 74 65 2d 66 | 69 6c 65 6e 61 6d 65 20 |mplete-f|ilename |
|00000a70| 23 5b 6e 69 6c 20 22 c0 | c1 5c 6e 60 5c 22 38 85 |#[nil ".|.\n`\"8.|
|00000a80| 0b 00 c3 20 87 22 20 5b | 33 20 70 61 72 73 65 2d |... ." [|3 parse-|
|00000a90| 70 61 72 74 69 61 6c 2d | 73 65 78 70 20 63 6f 6d |partial-|sexp com|
|00000aa0| 69 6e 74 2d 6c 61 73 74 | 2d 69 6e 70 75 74 2d 73 |int-last|-input-s|
|00000ab0| 74 61 72 74 20 63 6f 6d | 69 6e 74 2d 64 79 6e 61 |tart com|int-dyna|
|00000ac0| 6d 69 63 2d 63 6f 6d 70 | 6c 65 74 65 2d 66 69 6c |mic-comp|lete-fil|
|00000ad0| 65 6e 61 6d 65 5d 20 34 | 20 22 5c 0a 44 79 6e 61 |ename] 4| "\.Dyna|
|00000ae0| 6d 69 63 61 6c 6c 79 20 | 63 6f 6d 70 6c 65 74 65 |mically |complete|
|00000af0| 20 66 69 6c 65 6e 61 6d | 65 20 62 65 66 6f 72 65 | filenam|e before|
|00000b00| 20 70 6f 69 6e 74 2c 20 | 69 66 20 69 6e 20 61 20 | point, |if in a |
|00000b10| 73 74 72 69 6e 67 2e 22 | 5d 29 0a 28 64 65 66 61 |string."|]).(defa|
|00000b20| 6c 69 61 73 20 27 69 65 | 6c 6d 2d 69 6e 64 65 6e |lias 'ie|lm-inden|
|00000b30| 74 2d 6c 69 6e 65 20 23 | 5b 6e 69 6c 20 22 8a c0 |t-line #|[nil "..|
|00000b40| 79 88 c1 5c 6e 21 29 3f | 85 0e 00 c3 20 87 22 20 |y..\n!)?|.... ." |
|00000b50| 5b 30 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 63 6f |[0 looki|ng-at co|
|00000b60| 6d 69 6e 74 2d 70 72 6f | 6d 70 74 2d 72 65 67 65 |mint-pro|mpt-rege|
|00000b70| 78 70 20 6c 69 73 70 2d | 69 6e 64 65 6e 74 2d 6c |xp lisp-|indent-l|
|00000b80| 69 6e 65 5d 20 32 20 22 | 5c 0a 49 6e 64 65 6e 74 |ine] 2 "|\.Indent|
|00000b90| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 6c 69 6e | the cur|rent lin|
|00000ba0| 65 20 61 73 20 4c 69 73 | 70 20 63 6f 64 65 20 69 |e as Lis|p code i|
|00000bb0| 66 20 69 74 20 69 73 20 | 6e 6f 74 20 61 20 70 72 |f it is |not a pr|
|00000bc0| 6f 6d 70 74 20 6c 69 6e | 65 2e 22 5d 29 0a 28 64 |ompt lin|e."]).(d|
|00000bd0| 65 66 61 6c 69 61 73 20 | 27 69 65 6c 6d 2d 70 72 |efalias |'ielm-pr|
|00000be0| 69 6e 74 2d 77 6f 72 6b | 69 6e 67 2d 62 75 66 66 |int-work|ing-buff|
|00000bf0| 65 72 20 23 5b 6e 69 6c | 20 22 c0 c1 c2 0b 21 5c |er #[nil| "....!\|
|00000c00| 22 87 22 20 5b 6d 65 73 | 73 61 67 65 20 22 54 68 |"." [mes|sage "Th|
|00000c10| 65 20 63 75 72 72 65 6e | 74 20 77 6f 72 6b 69 6e |e curren|t workin|
|00000c20| 67 20 62 75 66 66 65 72 | 20 69 73 3a 20 25 73 22 |g buffer| is: %s"|
|00000c30| 20 62 75 66 66 65 72 2d | 6e 61 6d 65 20 69 65 6c | buffer-|name iel|
|00000c40| 6d 2d 77 6f 72 6b 69 6e | 67 2d 62 75 66 66 65 72 |m-workin|g-buffer|
|00000c50| 5d 20 34 20 22 5c 0a 50 | 72 69 6e 74 20 74 68 65 |] 4 "\.P|rint the|
|00000c60| 20 63 75 72 72 65 6e 74 | 20 49 45 4c 4d 20 77 6f | current| IELM wo|
|00000c70| 72 6b 69 6e 67 20 62 75 | 66 66 65 72 27 73 20 6e |rking bu|ffer's n|
|00000c80| 61 6d 65 20 69 6e 20 74 | 68 65 20 65 63 68 6f 20 |ame in t|he echo |
|00000c90| 61 72 65 61 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |area." n|il]).(de|
|00000ca0| 66 61 6c 69 61 73 20 27 | 69 65 6c 6d 2d 64 69 73 |falias '|ielm-dis|
|00000cb0| 70 6c 61 79 2d 77 6f 72 | 6b 69 6e 67 2d 62 75 66 |play-wor|king-buf|
|00000cc0| 66 65 72 20 23 5b 6e 69 | 6c 20 22 c0 09 21 88 c2 |fer #[ni|l "..!..|
|00000cd0| 20 87 22 20 5b 64 69 73 | 70 6c 61 79 2d 62 75 66 | ." [dis|play-buf|
|00000ce0| 66 65 72 20 69 65 6c 6d | 2d 77 6f 72 6b 69 6e 67 |fer ielm|-working|
|00000cf0| 2d 62 75 66 66 65 72 20 | 69 65 6c 6d 2d 70 72 69 |-buffer |ielm-pri|
|00000d00| 6e 74 2d 77 6f 72 6b 69 | 6e 67 2d 62 75 66 66 65 |nt-worki|ng-buffe|
|00000d10| 72 5d 20 32 20 22 5c 0a | 44 69 73 70 6c 61 79 20 |r] 2 "\.|Display |
|00000d20| 74 68 65 20 63 75 72 72 | 65 6e 74 20 49 45 4c 4d |the curr|ent IELM|
|00000d30| 20 77 6f 72 6b 69 6e 67 | 20 62 75 66 66 65 72 2e | working| buffer.|
|00000d40| 0a 44 6f 6e 27 74 20 66 | 6f 72 67 65 74 20 74 68 |.Don't f|orget th|
|00000d50| 61 74 20 73 65 6c 65 63 | 74 69 6e 67 20 74 68 61 |at selec|ting tha|
|00000d60| 74 20 62 75 66 66 65 72 | 20 77 69 6c 6c 20 63 68 |t buffer| will ch|
|00000d70| 61 6e 67 65 20 69 74 73 | 20 76 61 6c 75 65 20 6f |ange its| value o|
|00000d80| 66 20 60 70 6f 69 6e 74 | 27 0a 74 6f 20 69 74 73 |f `point|'.to its|
|00000d90| 20 76 61 6c 75 65 20 6f | 66 20 60 77 69 6e 64 6f | value o|f `windo|
|00000da0| 77 2d 70 6f 69 6e 74 27 | 21 22 20 6e 69 6c 5d 29 |w-point'|!" nil])|
|00000db0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 65 6c 6d |.(defali|as 'ielm|
|00000dc0| 2d 63 68 61 6e 67 65 2d | 77 6f 72 6b 69 6e 67 2d |-change-|working-|
|00000dd0| 62 75 66 66 65 72 20 23 | 5b 28 62 75 66 29 20 22 |buffer #|[(buf) "|
|00000de0| c0 09 21 86 09 00 c2 c3 | 21 14 c5 20 87 22 20 5b |..!.....|!.. ." [|
|00000df0| 67 65 74 2d 62 75 66 66 | 65 72 20 62 75 66 20 65 |get-buff|er buf e|
|00000e00| 72 72 6f 72 20 22 4e 6f | 20 73 75 63 68 20 62 75 |rror "No| such bu|
|00000e10| 66 66 65 72 22 20 69 65 | 6c 6d 2d 77 6f 72 6b 69 |ffer" ie|lm-worki|
|00000e20| 6e 67 2d 62 75 66 66 65 | 72 20 69 65 6c 6d 2d 70 |ng-buffe|r ielm-p|
|00000e30| 72 69 6e 74 2d 77 6f 72 | 6b 69 6e 67 2d 62 75 66 |rint-wor|king-buf|
|00000e40| 66 65 72 5d 20 32 20 22 | 5c 0a 43 68 61 6e 67 65 |fer] 2 "|\.Change|
|00000e50| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 49 45 4c | the cur|rent IEL|
|00000e60| 4d 20 77 6f 72 6b 69 6e | 67 20 62 75 66 66 65 72 |M workin|g buffer|
|00000e70| 20 74 6f 20 42 55 46 2e | 0a 54 68 69 73 20 69 73 | to BUF.|.This is|
|00000e80| 20 74 68 65 20 62 75 66 | 66 65 72 20 69 6e 20 77 | the buf|fer in w|
|00000e90| 68 69 63 68 20 61 6c 6c | 20 73 65 78 70 73 20 65 |hich all| sexps e|
|00000ea0| 6e 74 65 72 65 64 20 61 | 74 20 74 68 65 20 49 45 |ntered a|t the IE|
|00000eb0| 4c 4d 20 70 72 6f 6d 70 | 74 20 61 72 65 0a 65 76 |LM promp|t are.ev|
|00000ec0| 61 6c 75 61 74 65 64 2e | 20 20 59 6f 75 20 63 61 |aluated.|  You ca|
|00000ed0| 6e 20 61 63 68 69 65 76 | 65 20 74 68 65 20 73 61 |n achiev|e the sa|
|00000ee0| 6d 65 20 65 66 66 65 63 | 74 20 77 69 74 68 20 61 |me effec|t with a|
|00000ef0| 20 63 61 6c 6c 20 74 6f | 0a 60 73 65 74 2d 62 75 | call to|.`set-bu|
|00000f00| 66 66 65 72 27 20 61 74 | 20 74 68 65 20 49 45 4c |ffer' at| the IEL|
|00000f10| 4d 20 70 72 6f 6d 70 74 | 2e 22 20 22 62 53 65 74 |M prompt|." "bSet|
|00000f20| 20 77 6f 72 6b 69 6e 67 | 20 62 75 66 66 65 72 20 | working| buffer |
|00000f30| 74 6f 3a 20 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |to: "]).|(defalia|
|00000f40| 73 20 27 69 65 6c 6d 2d | 72 65 74 75 72 6e 20 23 |s 'ielm-|return #|
|00000f50| 5b 6e 69 6c 20 22 08 83 | 40 00 8a c1 7f 88 c2 c3 |[nil "..|@.......|
|00000f60| 20 60 5c 22 29 89 1c 40 | c5 57 83 21 00 c6 5c 66 | `\")..@|.W.!..\f|
|00000f70| 38 84 21 00 c7 20 82 3e | 00 0e 08 83 3c 00 8a c9 |8.!.. .>|....<...|
|00000f80| 79 88 ca 0e 0b 21 29 83 | 3c 00 8a c3 20 62 88 cc |y....!).|<... b..|
|00000f90| c5 21 88 29 cd 20 29 87 | cc 20 87 22 20 5b 69 65 |.!.). ).|. ." [ie|
|00000fa0| 6c 6d 2d 64 79 6e 61 6d | 69 63 2d 72 65 74 75 72 |lm-dynam|ic-retur|
|00000fb0| 6e 20 6e 69 6c 20 70 61 | 72 73 65 2d 70 61 72 74 |n nil pa|rse-part|
|00000fc0| 69 61 6c 2d 73 65 78 70 | 20 69 65 6c 6d 2d 70 6d |ial-sexp| ielm-pm|
|00000fd0| 20 73 74 61 74 65 20 31 | 20 33 20 69 65 6c 6d 2d | state 1| 3 ielm-|
|00000fe0| 73 65 6e 64 2d 69 6e 70 | 75 74 20 69 65 6c 6d 2d |send-inp|ut ielm-|
|00000ff0| 64 79 6e 61 6d 69 63 2d | 6d 75 6c 74 69 6c 69 6e |dynamic-|multilin|
|00001000| 65 2d 69 6e 70 75 74 73 | 20 30 20 6c 6f 6f 6b 69 |e-inputs| 0 looki|
|00001010| 6e 67 2d 61 74 20 63 6f | 6d 69 6e 74 2d 70 72 6f |ng-at co|mint-pro|
|00001020| 6d 70 74 2d 72 65 67 65 | 78 70 20 6e 65 77 6c 69 |mpt-rege|xp newli|
|00001030| 6e 65 20 6e 65 77 6c 69 | 6e 65 2d 61 6e 64 2d 69 |ne newli|ne-and-i|
|00001040| 6e 64 65 6e 74 5d 20 34 | 20 22 5c 0a 4e 65 77 6c |ndent] 4| "\.Newl|
|00001050| 69 6e 65 20 61 6e 64 20 | 69 6e 64 65 6e 74 2c 20 |ine and |indent, |
|00001060| 6f 72 20 65 76 61 6c 75 | 61 74 65 20 74 68 65 20 |or evalu|ate the |
|00001070| 73 65 78 70 20 62 65 66 | 6f 72 65 20 74 68 65 20 |sexp bef|ore the |
|00001080| 70 72 6f 6d 70 74 2e 0a | 43 6f 6d 70 6c 65 74 65 |prompt..|Complete|
|00001090| 20 73 65 78 70 73 20 61 | 72 65 20 65 76 61 6c 75 | sexps a|re evalu|
|000010a0| 61 74 65 64 3b 20 66 6f | 72 20 69 6e 63 6f 6d 70 |ated; fo|r incomp|
|000010b0| 6c 65 74 65 20 73 65 78 | 70 73 20 69 6e 73 65 72 |lete sex|ps inser|
|000010c0| 74 73 20 61 20 6e 65 77 | 6c 69 6e 65 0a 61 6e 64 |ts a new|line.and|
|000010d0| 20 69 6e 64 65 6e 74 73 | 2e 20 20 49 66 20 68 6f | indents|.  If ho|
|000010e0| 77 65 76 65 72 20 60 69 | 65 6c 6d 2d 64 79 6e 61 |wever `i|elm-dyna|
|000010f0| 6d 69 63 2d 72 65 74 75 | 72 6e 27 20 69 73 20 6e |mic-retu|rn' is n|
|00001100| 69 6c 2c 20 74 68 69 73 | 20 61 6c 77 61 79 73 0a |il, this| always.|
|00001110| 73 69 6d 70 6c 79 20 69 | 6e 73 65 72 74 73 20 61 |simply i|nserts a|
|00001120| 20 6e 65 77 6c 69 6e 65 | 2e 22 20 6e 69 6c 5d 29 | newline|." nil])|
|00001130| 0a 28 64 65 66 61 6c 69 | 61 73 20 28 71 75 6f 74 |.(defali|as (quot|
|00001140| 65 20 69 65 6c 6d 2d 69 | 6e 70 75 74 2d 73 65 6e |e ielm-i|nput-sen|
|00001150| 64 65 72 29 20 23 5b 28 | 70 72 6f 63 20 69 6e 70 |der) #[(|proc inp|
|00001160| 75 74 29 20 22 08 89 11 | 87 22 20 5b 69 6e 70 75 |ut) "...|." [inpu|
|00001170| 74 20 69 65 6c 6d 2d 69 | 6e 70 75 74 5d 20 32 5d |t ielm-i|nput] 2]|
|00001180| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 69 65 6c |).(defal|ias 'iel|
|00001190| 6d 2d 73 65 6e 64 2d 69 | 6e 70 75 74 20 23 5b 6e |m-send-i|nput #[n|
|000011a0| 69 6c 20 22 70 c0 19 1a | c3 20 88 c4 09 21 2a 87 |il "p...|. ...!*.|
|000011b0| 22 20 5b 6e 69 6c 20 69 | 65 6c 6d 2d 69 6e 70 75 |" [nil i|elm-inpu|
|000011c0| 74 20 62 75 66 20 63 6f | 6d 69 6e 74 2d 73 65 6e |t buf co|mint-sen|
|000011d0| 64 2d 69 6e 70 75 74 20 | 69 65 6c 6d 2d 65 76 61 |d-input |ielm-eva|
|000011e0| 6c 2d 69 6e 70 75 74 5d | 20 32 20 22 5c 0a 45 76 |l-input]| 2 "\.Ev|
|000011f0| 61 6c 75 61 74 65 20 74 | 68 65 20 45 6d 61 63 73 |aluate t|he Emacs|
|00001200| 20 4c 69 73 70 20 65 78 | 70 72 65 73 73 69 6f 6e | Lisp ex|pression|
|00001210| 20 61 66 74 65 72 20 74 | 68 65 20 70 72 6f 6d 70 | after t|he promp|
|00001220| 74 2e 22 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |t." nil]|).(defal|
|00001230| 69 61 73 20 27 69 65 6c | 6d 2d 69 73 2d 77 68 69 |ias 'iel|m-is-whi|
|00001240| 74 65 73 70 61 63 65 20 | 23 5b 28 73 74 72 69 6e |tespace |#[(strin|
|00001250| 67 29 20 22 08 c1 98 86 | 5c 6e 00 c2 c3 08 5c 22 |g) "....|\n....\"|
|00001260| 87 22 20 5b 73 74 72 69 | 6e 67 20 22 22 20 73 74 |." [stri|ng "" st|
|00001270| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5c 5c 60 5b |ring-mat|ch "\\`[|
|00001280| 20 09 5c 6e 5d 2b 5c 5c | 27 22 5d 20 33 20 22 5c | .\n]+\\|'"] 3 "\|
|00001290| 0a 52 65 74 75 72 6e 20 | 6e 6f 6e 2d 6e 69 6c 20 |.Return |non-nil |
|000012a0| 69 66 20 53 54 52 49 4e | 47 20 69 73 20 61 6c 6c |if STRIN|G is all|
|000012b0| 20 77 68 69 74 65 73 70 | 61 63 65 2e 22 5d 29 0a | whitesp|ace."]).|
|000012c0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 5c |(byte-co|de "...\|
|000012d0| 22 88 c0 c3 c4 5c 22 87 | 22 20 5b 64 65 66 61 6c |"....\".|" [defal|
|000012e0| 69 61 73 20 69 65 6c 6d | 2d 66 6f 72 6d 61 74 2d |ias ielm|-format-|
|000012f0| 65 72 72 6f 72 73 20 23 | 5b 28 65 72 72 6c 69 73 |errors #|[(errlis|
|00001300| 74 29 20 22 c0 19 5c 6e | 83 15 00 09 c3 5c 6e 40 |t) "..\n|.....\n@|
|00001310| 21 c4 51 11 5c 6e 41 89 | 12 84 06 00 09 c5 c6 4f |!.Q.\nA.|.......O|
|00001320| 29 87 22 20 5b 22 22 20 | 72 65 73 75 6c 74 20 65 |)." ["" |result e|
|00001330| 72 72 6c 69 73 74 20 70 | 72 69 6e 31 2d 74 6f 2d |rrlist p|rin1-to-|
|00001340| 73 74 72 69 6e 67 20 22 | 2c 20 22 20 30 20 2d 32 |string "|, " 0 -2|
|00001350| 5d 20 34 5d 20 69 65 6c | 6d 2d 66 6f 72 6d 61 74 |] 4] iel|m-format|
|00001360| 2d 65 72 72 6f 72 20 23 | 5b 28 65 72 72 29 20 22 |-error #|[(err) "|
|00001370| c0 c1 5c 6e 40 c3 4e 86 | 5c 6e 00 c4 5c 6e 41 83 |..\n@.N.|\n..\nA.|
|00001380| 19 00 c0 c5 c6 5c 6e 41 | 21 5c 22 82 1a 00 c7 23 |.....\nA|!\"....#|
|00001390| 87 22 20 5b 66 6f 72 6d | 61 74 20 22 25 73 25 73 |." [form|at "%s%s|
|000013a0| 22 20 65 72 72 20 65 72 | 72 6f 72 2d 6d 65 73 73 |" err er|ror-mess|
|000013b0| 61 67 65 20 22 50 65 63 | 75 6c 69 61 72 20 65 72 |age "Pec|uliar er|
|000013c0| 72 6f 72 22 20 22 3a 20 | 25 73 22 20 69 65 6c 6d |ror" ": |%s" ielm|
|000013d0| 2d 66 6f 72 6d 61 74 2d | 65 72 72 6f 72 73 20 22 |-format-|errors "|
|000013e0| 22 5d 20 37 5d 5d 20 33 | 29 0a 28 64 65 66 61 6c |"] 7]] 3|).(defal|
|000013f0| 69 61 73 20 27 69 65 6c | 6d 2d 65 76 61 6c 2d 69 |ias 'iel|m-eval-i|
|00001400| 6e 70 75 74 20 23 5b 28 | 69 65 6c 6d 2d 73 74 72 |nput #[(|ielm-str|
|00001410| 69 6e 67 29 20 22 c0 89 | 89 89 c1 5c 6e c3 20 1c |ing) "..|...\n. .|
|00001420| 1d 1e 06 1e 07 1e 08 1e | 09 1e 5c 6e cb 0e 5c 66 |........|..\n..\f|
|00001430| 21 84 ab 00 cd ce cf 8f | 88 0e 07 84 60 00 d0 5c |!.......|....`..\|
|00001440| 6e 21 84 36 00 d1 16 08 | d2 16 07 70 15 82 60 00 |n!.6....|...p..`.|
|00001450| cb 0e 5c 66 0e 09 c0 4f | 21 83 5a 00 0e 13 0e 14 |..\f...O|!.Z.....|
|00001460| 0e 15 1e 16 1e 17 1e 18 | 8a 5c 6e 71 88 cd d9 da |........|.\nq....|
|00001470| 8f 88 2c 82 60 00 db 16 | 07 dc 16 08 0d 5c 6e 3d |..,.`...|.....\n=|
|00001480| 84 6d 00 dd de 0d 5c 22 | 88 0d 12 5c 66 62 88 0e |.m....\"|...\fb..|
|00001490| 07 84 7a 00 cd df e0 8f | 88 0e 07 83 99 00 0e 21 |..z.....|.......!|
|000014a0| 83 87 00 e2 20 88 0e 06 | e3 0e 07 e4 52 89 16 06 |.... ...|....R...|
|000014b0| 0e 08 50 16 06 82 a5 00 | 0e 14 16 15 0e 13 16 14 |..P.....|........|
|000014c0| 0e 08 16 13 0e 06 e5 50 | 16 06 0e 06 0e 26 50 16 |.......P|.....&P.|
|000014d0| 06 e7 e8 20 0e 06 5c 22 | 2e 07 87 22 20 5b 6e 69 |... ..\"|..." [ni|
|000014e0| 6c 20 22 22 20 69 65 6c | 6d 2d 77 6f 72 6b 69 6e |l "" iel|m-workin|
|000014f0| 67 2d 62 75 66 66 65 72 | 20 69 65 6c 6d 2d 70 6d |g-buffer| ielm-pm|
|00001500| 20 69 65 6c 6d 2d 70 6d | 61 72 6b 20 69 65 6c 6d | ielm-pm|ark ielm|
|00001510| 2d 77 62 75 66 20 69 65 | 6c 6d 2d 6f 75 74 70 75 |-wbuf ie|lm-outpu|
|00001520| 74 20 69 65 6c 6d 2d 65 | 72 72 6f 72 2d 74 79 70 |t ielm-e|rror-typ|
|00001530| 65 20 69 65 6c 6d 2d 72 | 65 73 75 6c 74 20 69 65 |e ielm-r|esult ie|
|00001540| 6c 6d 2d 70 6f 73 20 69 | 65 6c 6d 2d 66 6f 72 6d |lm-pos i|elm-form|
|00001550| 20 69 65 6c 6d 2d 69 73 | 2d 77 68 69 74 65 73 70 | ielm-is|-whitesp|
|00001560| 61 63 65 20 69 65 6c 6d | 2d 73 74 72 69 6e 67 20 |ace ielm|-string |
|00001570| 65 72 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |err (byt|e-code "|
|00001580| c0 19 c2 0b 21 89 11 40 | 14 09 41 15 29 c0 87 22 |....!..@|..A.).."|
|00001590| 20 5b 6e 69 6c 20 72 6f | 75 74 20 72 65 61 64 2d | [nil ro|ut read-|
|000015a0| 66 72 6f 6d 2d 73 74 72 | 69 6e 67 20 69 65 6c 6d |from-str|ing ielm|
|000015b0| 2d 73 74 72 69 6e 67 20 | 69 65 6c 6d 2d 66 6f 72 |-string |ielm-for|
|000015c0| 6d 20 69 65 6c 6d 2d 70 | 6f 73 5d 20 33 29 20 28 |m ielm-p|os] 3) (|
|000015d0| 28 65 72 72 6f 72 20 28 | 62 79 74 65 2d 63 6f 64 |(error (|byte-cod|
|000015e0| 65 20 22 c0 09 21 12 c3 | 14 c0 87 22 20 5b 69 65 |e "..!..|..." [ie|
|000015f0| 6c 6d 2d 66 6f 72 6d 61 | 74 2d 65 72 72 6f 72 20 |lm-forma|t-error |
|00001600| 65 72 72 20 69 65 6c 6d | 2d 72 65 73 75 6c 74 20 |err ielm|-result |
|00001610| 22 52 65 61 64 20 65 72 | 72 6f 72 22 20 69 65 6c |"Read er|ror" iel|
|00001620| 6d 2d 65 72 72 6f 72 2d | 74 79 70 65 5d 20 32 29 |m-error-|type] 2)|
|00001630| 29 29 20 62 75 66 66 65 | 72 2d 6e 61 6d 65 20 22 |)) buffe|r-name "|
|00001640| 57 6f 72 6b 69 6e 67 20 | 62 75 66 66 65 72 20 68 |Working |buffer h|
|00001650| 61 73 20 62 65 65 6e 20 | 6b 69 6c 6c 65 64 22 20 |as been |killed" |
|00001660| 22 49 45 4c 4d 20 45 72 | 72 6f 72 22 20 3a 20 3a |"IELM Er|ror" : :|
|00001670| 3a 20 3a 3a 3a 20 3a 3a | 3a 73 61 76 65 20 3a 3a |: ::: ::|:save ::|
|00001680| 73 61 76 65 20 3a 73 61 | 76 65 20 28 62 79 74 65 |save :sa|ve (byte|
|00001690| 2d 63 6f 64 65 20 22 08 | 09 5c 6e 70 1b 1c 1d 1e |-code ".|.\np....|
|000016a0| 06 c7 0e 08 21 16 09 70 | 16 5c 6e 0b 71 88 2c c7 |....!..p|.\n.q.,.|
|000016b0| 87 22 20 5b 3a 73 61 76 | 65 20 3a 3a 73 61 76 65 |." [:sav|e ::save|
|000016c0| 20 3a 3a 3a 73 61 76 65 | 20 69 65 6c 6d 2d 6f 62 | :::save| ielm-ob|
|000016d0| 75 66 20 3a 3a 3a 20 3a | 3a 20 3a 20 65 76 61 6c |uf ::: :|: : eval|
|000016e0| 20 69 65 6c 6d 2d 66 6f | 72 6d 20 69 65 6c 6d 2d | ielm-fo|rm ielm-|
|000016f0| 72 65 73 75 6c 74 20 69 | 65 6c 6d 2d 77 62 75 66 |result i|elm-wbuf|
|00001700| 5d 20 34 29 20 28 28 65 | 72 72 6f 72 20 28 62 79 |] 4) ((e|rror (by|
|00001710| 74 65 2d 63 6f 64 65 20 | 22 c0 09 21 12 c3 14 c0 |te-code |"..!....|
|00001720| 87 22 20 5b 69 65 6c 6d | 2d 66 6f 72 6d 61 74 2d |." [ielm|-format-|
|00001730| 65 72 72 6f 72 20 65 72 | 72 20 69 65 6c 6d 2d 72 |error er|r ielm-r|
|00001740| 65 73 75 6c 74 20 22 45 | 76 61 6c 20 65 72 72 6f |esult "E|val erro|
|00001750| 72 22 20 69 65 6c 6d 2d | 65 72 72 6f 72 2d 74 79 |r" ielm-|error-ty|
|00001760| 70 65 5d 20 32 29 29 20 | 28 71 75 69 74 20 28 62 |pe] 2)) |(quit (b|
|00001770| 79 74 65 2d 63 6f 64 65 | 20 22 c0 11 c2 13 c4 87 |yte-code| "......|
|00001780| 22 20 5b 22 51 75 69 74 | 20 64 75 72 69 6e 67 20 |" ["Quit| during |
|00001790| 65 76 61 6c 75 61 74 69 | 6f 6e 22 20 69 65 6c 6d |evaluati|on" ielm|
|000017a0| 2d 72 65 73 75 6c 74 20 | 22 45 76 61 6c 20 65 72 |-result |"Eval er|
|000017b0| 72 6f 72 22 20 69 65 6c | 6d 2d 65 72 72 6f 72 2d |ror" iel|m-error-|
|000017c0| 74 79 70 65 20 6e 69 6c | 5d 20 31 29 29 29 20 22 |type nil|] 1))) "|
|000017d0| 49 45 4c 4d 20 65 72 72 | 6f 72 22 20 22 4d 6f 72 |IELM err|or" "Mor|
|000017e0| 65 20 74 68 61 6e 20 6f | 6e 65 20 73 65 78 70 20 |e than o|ne sexp |
|000017f0| 69 6e 20 69 6e 70 75 74 | 22 20 6d 65 73 73 61 67 |in input|" messag|
|00001800| 65 20 22 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |e "curre|nt buffe|
|00001810| 72 20 69 73 20 6e 6f 77 | 3a 20 25 73 22 20 28 62 |r is now|: %s" (b|
|00001820| 79 74 65 2d 63 6f 64 65 | 20 22 08 c1 5c 6e 21 50 |yte-code| "..\n!P|
|00001830| 10 c1 87 22 20 5b 69 65 | 6c 6d 2d 6f 75 74 70 75 |..." [ie|lm-outpu|
|00001840| 74 20 70 70 2d 74 6f 2d | 73 74 72 69 6e 67 20 69 |t pp-to-|string i|
|00001850| 65 6c 6d 2d 72 65 73 75 | 6c 74 5d 20 33 29 20 28 |elm-resu|lt] 3) (|
|00001860| 28 65 72 72 6f 72 20 28 | 62 79 74 65 2d 63 6f 64 |(error (|byte-cod|
|00001870| 65 20 22 c0 11 c2 13 c4 | 87 22 20 5b 22 49 45 4c |e ".....|." ["IEL|
|00001880| 4d 20 45 72 72 6f 72 22 | 20 69 65 6c 6d 2d 65 72 |M Error"| ielm-er|
|00001890| 72 6f 72 2d 74 79 70 65 | 20 22 45 72 72 6f 72 20 |ror-type| "Error |
|000018a0| 64 75 72 69 6e 67 20 70 | 72 65 74 74 79 2d 70 72 |during p|retty-pr|
|000018b0| 69 6e 74 69 6e 67 20 28 | 62 75 67 20 69 6e 20 70 |inting (|bug in p|
|000018c0| 70 29 22 20 69 65 6c 6d | 2d 72 65 73 75 6c 74 20 |p)" ielm|-result |
|000018d0| 6e 69 6c 5d 20 31 29 29 | 20 28 71 75 69 74 20 28 |nil] 1))| (quit (|
|000018e0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 11 c2 13 c4 |byte-cod|e ".....|
|000018f0| 87 22 20 5b 22 49 45 4c | 4d 20 45 72 72 6f 72 22 |." ["IEL|M Error"|
|00001900| 20 69 65 6c 6d 2d 65 72 | 72 6f 72 2d 74 79 70 65 | ielm-er|ror-type|
|00001910| 20 22 51 75 69 74 20 64 | 75 72 69 6e 67 20 70 72 | "Quit d|uring pr|
|00001920| 65 74 74 79 2d 70 72 69 | 6e 74 69 6e 67 22 20 69 |etty-pri|nting" i|
|00001930| 65 6c 6d 2d 72 65 73 75 | 6c 74 20 6e 69 6c 5d 20 |elm-resu|lt nil] |
|00001940| 31 29 29 29 20 69 65 6c | 6d 2d 6e 6f 69 73 79 20 |1))) iel|m-noisy |
|00001950| 64 69 6e 67 20 22 2a 2a | 2a 20 22 20 22 20 2a 2a |ding "**|* " " **|
|00001960| 2a 20 20 22 20 22 5c 6e | 22 20 69 65 6c 6d 2d 70 |*  " "\n|" ielm-p|
|00001970| 72 6f 6d 70 74 20 63 6f | 6d 69 6e 74 2d 6f 75 74 |rompt co|mint-out|
|00001980| 70 75 74 2d 66 69 6c 74 | 65 72 20 69 65 6c 6d 2d |put-filt|er ielm-|
|00001990| 70 72 6f 63 65 73 73 5d | 20 38 20 22 5c 0a 45 76 |process]| 8 "\.Ev|
|000019a0| 61 6c 75 61 74 65 20 74 | 68 65 20 4c 69 73 70 20 |aluate t|he Lisp |
|000019b0| 65 78 70 72 65 73 73 69 | 6f 6e 20 49 45 4c 4d 2d |expressi|on IELM-|
|000019c0| 53 54 52 49 4e 47 2c 20 | 61 6e 64 20 70 72 65 74 |STRING, |and pret|
|000019d0| 74 79 2d 70 72 69 6e 74 | 20 74 68 65 20 72 65 73 |ty-print| the res|
|000019e0| 75 6c 74 2e 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |ult."]).|(byte-co|
|000019f0| 64 65 20 22 c0 c1 c2 5c | 22 88 c0 c3 c4 5c 22 88 |de "...\|"....\".|
|00001a00| c0 c5 c6 5c 22 87 22 20 | 5b 64 65 66 61 6c 69 61 |...\"." |[defalia|
|00001a10| 73 20 69 65 6c 6d 2d 70 | 72 6f 63 65 73 73 20 23 |s ielm-p|rocess #|
|00001a20| 5b 6e 69 6c 20 22 c0 70 | 21 87 22 20 5b 67 65 74 |[nil ".p|!." [get|
|00001a30| 2d 62 75 66 66 65 72 2d | 70 72 6f 63 65 73 73 5d |-buffer-|process]|
|00001a40| 20 32 5d 20 69 65 6c 6d | 2d 70 6d 20 23 5b 6e 69 | 2] ielm|-pm #[ni|
|00001a50| 6c 20 22 c0 c1 70 21 21 | 87 22 20 5b 70 72 6f 63 |l "..p!!|." [proc|
|00001a60| 65 73 73 2d 6d 61 72 6b | 20 67 65 74 2d 62 75 66 |ess-mark| get-buf|
|00001a70| 66 65 72 2d 70 72 6f 63 | 65 73 73 5d 20 33 5d 20 |fer-proc|ess] 3] |
|00001a80| 69 65 6c 6d 2d 73 65 74 | 2d 70 6d 20 23 5b 28 70 |ielm-set|-pm #[(p|
|00001a90| 6f 73 29 20 22 c0 c1 70 | 21 21 5c 6e c3 93 87 22 |os) "..p|!!\n..."|
|00001aa0| 20 5b 70 72 6f 63 65 73 | 73 2d 6d 61 72 6b 20 67 | [proces|s-mark g|
|00001ab0| 65 74 2d 62 75 66 66 65 | 72 2d 70 72 6f 63 65 73 |et-buffe|r-proces|
|00001ac0| 73 20 70 6f 73 20 6e 69 | 6c 5d 20 33 5d 5d 20 33 |s pos ni|l] 3]] 3|
|00001ad0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 69 6e 66 |).(defal|ias 'inf|
|00001ae0| 65 72 69 6f 72 2d 65 6d | 61 63 73 2d 6c 69 73 70 |erior-em|acs-lisp|
|00001af0| 2d 6d 6f 64 65 20 23 5b | 6e 69 6c 20 22 c0 20 88 |-mode #[|nil ". .|
|00001b00| c1 c2 0b 21 50 14 c5 c6 | 21 88 5c 66 16 06 c7 16 |...!P...|!.\f....|
|00001b10| 08 c9 16 5c 6e cb 16 5c | 66 cd 16 0e cf 16 10 d1 |...\n..\|f.......|
|00001b20| 16 12 d3 0e 14 21 88 d5 | 0e 16 21 88 c5 d7 21 88 |.....!..|..!...!.|
|00001b30| c5 d8 21 88 70 16 18 d9 | 16 17 c9 16 1a c5 da 21 |..!.p...|.......!|
|00001b40| 88 c9 16 1b c5 db 21 88 | c9 16 1c c5 dc 21 88 dd |......!.|.....!..|
|00001b50| 70 21 84 7f 00 de df 70 | e0 23 88 e1 e2 20 21 88 |p!.....p|.#... !.|
|00001b60| 64 62 88 0e 23 63 88 e4 | 64 21 88 e5 e2 20 0b 5c |db..#c..|d!... .\|
|00001b70| 22 88 0e 26 e7 20 c9 93 | 88 e8 e9 70 21 e5 5c 22 |"..&. ..|...p!.\"|
|00001b80| 88 ea eb 21 87 22 20 5b | 63 6f 6d 69 6e 74 2d 6d |...!." [|comint-m|
|00001b90| 6f 64 65 20 22 5e 22 20 | 72 65 67 65 78 70 2d 71 |ode "^" |regexp-q|
|00001ba0| 75 6f 74 65 20 69 65 6c | 6d 2d 70 72 6f 6d 70 74 |uote iel|m-prompt|
|00001bb0| 20 63 6f 6d 69 6e 74 2d | 70 72 6f 6d 70 74 2d 72 | comint-|prompt-r|
|00001bc0| 65 67 65 78 70 20 6d 61 | 6b 65 2d 6c 6f 63 61 6c |egexp ma|ke-local|
|00001bd0| 2d 76 61 72 69 61 62 6c | 65 20 70 61 72 61 67 72 |-variabl|e paragr|
|00001be0| 61 70 68 2d 73 74 61 72 | 74 20 69 65 6c 6d 2d 69 |aph-star|t ielm-i|
|00001bf0| 6e 70 75 74 2d 73 65 6e | 64 65 72 20 63 6f 6d 69 |nput-sen|der comi|
|00001c00| 6e 74 2d 69 6e 70 75 74 | 2d 73 65 6e 64 65 72 20 |nt-input|-sender |
|00001c10| 6e 69 6c 20 63 6f 6d 69 | 6e 74 2d 70 72 6f 63 65 |nil comi|nt-proce|
|00001c20| 73 73 2d 65 63 68 6f 65 | 73 20 28 69 65 6c 6d 2d |ss-echoe|s (ielm-|
|00001c30| 74 61 62 20 63 6f 6d 69 | 6e 74 2d 72 65 70 6c 61 |tab comi|nt-repla|
|00001c40| 63 65 2d 62 79 2d 65 78 | 70 61 6e 64 65 64 2d 68 |ce-by-ex|panded-h|
|00001c50| 69 73 74 6f 72 79 20 69 | 65 6c 6d 2d 63 6f 6d 70 |istory i|elm-comp|
|00001c60| 6c 65 74 65 2d 66 69 6c | 65 6e 61 6d 65 20 69 65 |lete-fil|ename ie|
|00001c70| 6c 6d 2d 63 6f 6d 70 6c | 65 74 65 2d 73 79 6d 62 |lm-compl|ete-symb|
|00001c80| 6f 6c 29 20 63 6f 6d 69 | 6e 74 2d 64 79 6e 61 6d |ol) comi|nt-dynam|
|00001c90| 69 63 2d 63 6f 6d 70 6c | 65 74 65 2d 66 75 6e 63 |ic-compl|ete-func|
|00001ca0| 74 69 6f 6e 73 20 69 65 | 6c 6d 2d 67 65 74 2d 6f |tions ie|lm-get-o|
|00001cb0| 6c 64 2d 69 6e 70 75 74 | 20 63 6f 6d 69 6e 74 2d |ld-input| comint-|
|00001cc0| 67 65 74 2d 6f 6c 64 2d | 69 6e 70 75 74 20 69 6e |get-old-|input in|
|00001cd0| 66 65 72 69 6f 72 2d 65 | 6d 61 63 73 2d 6c 69 73 |ferior-e|macs-lis|
|00001ce0| 70 2d 6d 6f 64 65 20 6d | 61 6a 6f 72 2d 6d 6f 64 |p-mode m|ajor-mod|
|00001cf0| 65 20 22 49 45 4c 4d 22 | 20 6d 6f 64 65 2d 6e 61 |e "IELM"| mode-na|
|00001d00| 6d 65 20 75 73 65 2d 6c | 6f 63 61 6c 2d 6d 61 70 |me use-l|ocal-map|
|00001d10| 20 69 65 6c 6d 2d 6d 61 | 70 20 73 65 74 2d 73 79 | ielm-ma|p set-sy|
|00001d20| 6e 74 61 78 2d 74 61 62 | 6c 65 20 65 6d 61 63 73 |ntax-tab|le emacs|
|00001d30| 2d 6c 69 73 70 2d 6d 6f | 64 65 2d 73 79 6e 74 61 |-lisp-mo|de-synta|
|00001d40| 78 2d 74 61 62 6c 65 20 | 69 6e 64 65 6e 74 2d 6c |x-table |indent-l|
|00001d50| 69 6e 65 2d 66 75 6e 63 | 74 69 6f 6e 20 69 65 6c |ine-func|tion iel|
|00001d60| 6d 2d 77 6f 72 6b 69 6e | 67 2d 62 75 66 66 65 72 |m-workin|g-buffer|
|00001d70| 20 69 65 6c 6d 2d 69 6e | 64 65 6e 74 2d 6c 69 6e | ielm-in|dent-lin|
|00001d80| 65 20 3a 20 3a 3a 20 3a | 3a 3a 20 63 6f 6d 69 6e |e : :: :|:: comin|
|00001d90| 74 2d 63 68 65 63 6b 2d | 70 72 6f 63 20 73 74 61 |t-check-|proc sta|
|00001da0| 72 74 2d 70 72 6f 63 65 | 73 73 20 22 69 65 6c 6d |rt-proce|ss "ielm|
|00001db0| 22 20 22 63 61 74 22 20 | 70 72 6f 63 65 73 73 2d |" "cat" |process-|
|00001dc0| 6b 69 6c 6c 2d 77 69 74 | 68 6f 75 74 2d 71 75 65 |kill-wit|hout-que|
|00001dd0| 72 79 20 69 65 6c 6d 2d | 70 72 6f 63 65 73 73 20 |ry ielm-|process |
|00001de0| 69 65 6c 6d 2d 68 65 61 | 64 65 72 20 69 65 6c 6d |ielm-hea|der ielm|
|00001df0| 2d 73 65 74 2d 70 6d 20 | 63 6f 6d 69 6e 74 2d 6f |-set-pm |comint-o|
|00001e00| 75 74 70 75 74 2d 66 69 | 6c 74 65 72 20 63 6f 6d |utput-fi|lter com|
|00001e10| 69 6e 74 2d 6c 61 73 74 | 2d 69 6e 70 75 74 2d 73 |int-last|-input-s|
|00001e20| 74 61 72 74 20 69 65 6c | 6d 2d 70 6d 20 73 65 74 |tart iel|m-pm set|
|00001e30| 2d 70 72 6f 63 65 73 73 | 2d 66 69 6c 74 65 72 20 |-process|-filter |
|00001e40| 67 65 74 2d 62 75 66 66 | 65 72 2d 70 72 6f 63 65 |get-buff|er-proce|
|00001e50| 73 73 20 72 75 6e 2d 68 | 6f 6f 6b 73 20 69 65 6c |ss run-h|ooks iel|
|00001e60| 6d 2d 6d 6f 64 65 2d 68 | 6f 6f 6b 5d 20 34 20 22 |m-mode-h|ook] 4 "|
|00001e70| 5c 0a 4d 61 6a 6f 72 20 | 6d 6f 64 65 20 66 6f 72 |\.Major |mode for|
|00001e80| 20 69 6e 74 65 72 61 63 | 74 69 76 65 6c 79 20 65 | interac|tively e|
|00001e90| 76 61 6c 75 61 74 69 6e | 67 20 45 6d 61 63 73 20 |valuatin|g Emacs |
|00001ea0| 4c 69 73 70 20 65 78 70 | 72 65 73 73 69 6f 6e 73 |Lisp exp|ressions|
|00001eb0| 2e 0a 55 73 65 73 20 74 | 68 65 20 69 6e 74 65 72 |..Uses t|he inter|
|00001ec0| 66 61 63 65 20 70 72 6f | 76 69 64 65 64 20 62 79 |face pro|vided by|
|00001ed0| 20 60 63 6f 6d 69 6e 74 | 2d 6d 6f 64 65 27 20 28 | `comint|-mode' (|
|00001ee0| 77 68 69 63 68 20 73 65 | 65 29 2e 0a 0a 2a 20 5c |which se|e)...* \|
|00001ef0| 5c 3c 69 65 6c 6d 2d 6d | 61 70 3e 5c 5c 5b 69 65 |\<ielm-m|ap>\\[ie|
|00001f00| 6c 6d 2d 73 65 6e 64 2d | 69 6e 70 75 74 5d 20 65 |lm-send-|input] e|
|00001f10| 76 61 6c 75 61 74 65 73 | 20 74 68 65 20 73 65 78 |valuates| the sex|
|00001f20| 70 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 74 68 65 20 |p follow|ing the |
|00001f30| 70 72 6f 6d 70 74 2e 20 | 54 68 65 72 65 20 6d 75 |prompt. |There mu|
|00001f40| 73 74 20 62 65 20 61 74 | 20 6d 6f 73 74 0a 20 20 |st be at| most.  |
|00001f50| 6f 6e 65 20 74 6f 70 2d | 6c 65 76 65 6c 20 73 65 |one top-|level se|
|00001f60| 78 70 20 70 65 72 20 70 | 72 6f 6d 70 74 2e 0a 0a |xp per p|rompt...|
|00001f70| 2a 20 5c 5c 5b 69 65 6c | 6d 2d 72 65 74 75 72 6e |* \\[iel|m-return|
|00001f80| 5d 20 69 6e 73 65 72 74 | 73 20 61 20 6e 65 77 6c |] insert|s a newl|
|00001f90| 69 6e 65 20 61 6e 64 20 | 69 6e 64 65 6e 74 73 2c |ine and |indents,|
|00001fa0| 20 6f 72 20 65 76 61 6c | 75 61 74 65 73 20 61 0a | or eval|uates a.|
|00001fb0| 20 20 63 6f 6d 70 6c 65 | 74 65 20 65 78 70 72 65 |  comple|te expre|
|00001fc0| 73 73 69 6f 6e 20 28 62 | 75 74 20 73 65 65 20 76 |ssion (b|ut see v|
|00001fd0| 61 72 69 61 62 6c 65 20 | 60 69 65 6c 6d 2d 64 79 |ariable |`ielm-dy|
|00001fe0| 6e 61 6d 69 63 2d 72 65 | 74 75 72 6e 27 29 2e 0a |namic-re|turn')..|
|00001ff0| 20 20 49 6e 70 75 74 73 | 20 6c 6f 6e 67 65 72 20 |  Inputs| longer |
|00002000| 74 68 61 6e 20 6f 6e 65 | 20 6c 69 6e 65 20 61 72 |than one| line ar|
|00002010| 65 20 6d 6f 76 65 64 20 | 74 6f 20 74 68 65 20 6c |e moved |to the l|
|00002020| 69 6e 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 74 68 |ine foll|owing th|
|00002030| 65 0a 20 20 70 72 6f 6d | 70 74 20 28 62 75 74 20 |e.  prom|pt (but |
|00002040| 73 65 65 20 76 61 72 69 | 61 62 6c 65 20 60 69 65 |see vari|able `ie|
|00002050| 6c 6d 2d 64 79 6e 61 6d | 69 63 2d 6d 75 6c 74 69 |lm-dynam|ic-multi|
|00002060| 6c 69 6e 65 2d 69 6e 70 | 75 74 73 27 29 2e 0a 0a |line-inp|uts')...|
|00002070| 2a 20 5c 5c 5b 63 6f 6d | 69 6e 74 2d 64 79 6e 61 |* \\[com|int-dyna|
|00002080| 6d 69 63 2d 63 6f 6d 70 | 6c 65 74 65 5d 20 63 6f |mic-comp|lete] co|
|00002090| 6d 70 6c 65 74 65 73 20 | 4c 69 73 70 20 73 79 6d |mpletes |Lisp sym|
|000020a0| 62 6f 6c 73 20 28 6f 72 | 20 66 69 6c 65 6e 61 6d |bols (or| filenam|
|000020b0| 65 73 2c 20 77 69 74 68 | 69 6e 20 73 74 72 69 6e |es, with|in strin|
|000020c0| 67 73 29 2c 20 0a 20 20 | 6f 72 20 69 6e 64 65 6e |gs), .  |or inden|
|000020d0| 74 73 20 74 68 65 20 6c | 69 6e 65 20 69 66 20 74 |ts the l|ine if t|
|000020e0| 68 65 72 65 20 69 73 20 | 6e 6f 74 68 69 6e 67 20 |here is |nothing |
|000020f0| 74 6f 20 63 6f 6d 70 6c | 65 74 65 2e 0a 0a 44 75 |to compl|ete...Du|
|00002100| 72 69 6e 67 20 65 76 61 | 6c 75 61 74 69 6f 6e 73 |ring eva|luations|
|00002110| 2c 20 74 68 65 20 76 61 | 6c 75 65 73 20 6f 66 20 |, the va|lues of |
|00002120| 74 68 65 20 76 61 72 69 | 61 62 6c 65 73 20 60 3a |the vari|ables `:|
|00002130| 27 2c 20 60 3a 3a 27 2c | 20 61 6e 64 20 60 3a 3a |', `::',| and `::|
|00002140| 3a 27 0a 61 72 65 20 74 | 68 65 20 72 65 73 75 6c |:'.are t|he resul|
|00002150| 74 73 20 6f 66 20 74 68 | 65 20 70 72 65 76 69 6f |ts of th|e previo|
|00002160| 75 73 2c 20 73 65 63 6f | 6e 64 20 70 72 65 76 69 |us, seco|nd previ|
|00002170| 6f 75 73 20 61 6e 64 20 | 74 68 69 72 64 20 70 72 |ous and |third pr|
|00002180| 65 76 69 6f 75 73 0a 65 | 76 61 6c 75 61 74 69 6f |evious.e|valuatio|
|00002190| 6e 73 20 72 65 73 70 65 | 63 74 69 76 65 6c 79 2e |ns respe|ctively.|
|000021a0| 0a 0a 54 68 65 20 63 75 | 72 72 65 6e 74 20 77 6f |..The cu|rrent wo|
|000021b0| 72 6b 69 6e 67 20 62 75 | 66 66 65 72 20 6d 61 79 |rking bu|ffer may|
|000021c0| 20 62 65 20 63 68 61 6e | 67 65 64 20 28 77 69 74 | be chan|ged (wit|
|000021d0| 68 20 61 20 63 61 6c 6c | 20 74 6f 0a 60 73 65 74 |h a call| to.`set|
|000021e0| 2d 62 75 66 66 65 72 27 | 2c 20 6f 72 20 77 69 74 |-buffer'|, or wit|
|000021f0| 68 20 5c 5c 5b 69 65 6c | 6d 2d 63 68 61 6e 67 65 |h \\[iel|m-change|
|00002200| 2d 77 6f 72 6b 69 6e 67 | 2d 62 75 66 66 65 72 5d |-working|-buffer]|
|00002210| 29 2c 20 61 6e 64 20 69 | 74 73 20 76 61 6c 75 65 |), and i|ts value|
|00002220| 0a 69 73 20 70 72 65 73 | 65 72 76 65 64 20 62 65 |.is pres|erved be|
|00002230| 74 77 65 65 6e 20 73 75 | 63 63 65 73 73 69 76 65 |tween su|ccessive|
|00002240| 20 65 76 61 6c 75 61 74 | 69 6f 6e 73 2e 20 20 49 | evaluat|ions.  I|
|00002250| 6e 20 74 68 69 73 20 77 | 61 79 2c 20 65 78 70 72 |n this w|ay, expr|
|00002260| 65 73 73 69 6f 6e 73 0a | 6d 61 79 20 62 65 20 65 |essions.|may be e|
|00002270| 76 61 6c 75 61 74 65 64 | 20 69 6e 20 61 20 64 69 |valuated| in a di|
|00002280| 66 66 65 72 65 6e 74 20 | 62 75 66 66 65 72 20 74 |fferent |buffer t|
|00002290| 68 61 6e 20 74 68 65 20 | 2a 69 65 6c 6d 2a 20 62 |han the |*ielm* b|
|000022a0| 75 66 66 65 72 2e 0a 44 | 69 73 70 6c 61 79 20 74 |uffer..D|isplay t|
|000022b0| 68 65 20 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 77 |he name |of the w|
|000022c0| 6f 72 6b 69 6e 67 20 62 | 75 66 66 65 72 20 77 69 |orking b|uffer wi|
|000022d0| 74 68 20 5c 5c 5b 69 65 | 6c 6d 2d 70 72 69 6e 74 |th \\[ie|lm-print|
|000022e0| 2d 77 6f 72 6b 69 6e 67 | 2d 62 75 66 66 65 72 5d |-working|-buffer]|
|000022f0| 2c 0a 6f 72 20 74 68 65 | 20 62 75 66 66 65 72 20 |,.or the| buffer |
|00002300| 69 74 73 65 6c 66 20 77 | 69 74 68 20 5c 5c 5b 69 |itself w|ith \\[i|
|00002310| 65 6c 6d 2d 64 69 73 70 | 6c 61 79 2d 77 6f 72 6b |elm-disp|lay-work|
|00002320| 69 6e 67 2d 62 75 66 66 | 65 72 5d 2e 0a 0a 45 78 |ing-buff|er]...Ex|
|00002330| 70 72 65 73 73 69 6f 6e | 73 20 65 76 61 6c 75 61 |pression|s evalua|
|00002340| 74 65 64 20 62 79 20 49 | 45 4c 4d 20 61 72 65 20 |ted by I|ELM are |
|00002350| 6e 6f 74 20 73 75 62 6a | 65 63 74 20 74 6f 20 60 |not subj|ect to `|
|00002360| 64 65 62 75 67 2d 6f 6e | 2d 71 75 69 74 27 20 6f |debug-on|-quit' o|
|00002370| 72 0a 60 64 65 62 75 67 | 2d 6f 6e 2d 65 72 72 6f |r.`debug|-on-erro|
|00002380| 72 27 2e 0a 0a 54 68 65 | 20 62 65 68 61 76 69 6f |r'...The| behavio|
|00002390| 75 72 20 6f 66 20 49 45 | 4c 4d 20 6d 61 79 20 62 |ur of IE|LM may b|
|000023a0| 65 20 63 75 73 74 6f 6d | 69 73 65 64 20 77 69 74 |e custom|ised wit|
|000023b0| 68 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |h the fo|llowing |
|000023c0| 76 61 72 69 61 62 6c 65 | 73 3a 0a 2a 20 54 6f 20 |variable|s:.* To |
|000023d0| 73 74 6f 70 20 62 65 65 | 70 69 6e 67 20 6f 6e 20 |stop bee|ping on |
|000023e0| 65 72 72 6f 72 2c 20 73 | 65 74 20 60 69 65 6c 6d |error, s|et `ielm|
|000023f0| 2d 6e 6f 69 73 79 27 20 | 74 6f 20 6e 69 6c 0a 2a |-noisy' |to nil.*|
|00002400| 20 49 66 20 79 6f 75 20 | 64 6f 6e 27 74 20 6c 69 | If you |don't li|
|00002410| 6b 65 20 74 68 65 20 70 | 72 6f 6d 70 74 2c 20 79 |ke the p|rompt, y|
|00002420| 6f 75 20 63 61 6e 20 63 | 68 61 6e 67 65 20 69 74 |ou can c|hange it|
|00002430| 20 62 79 20 73 65 74 74 | 69 6e 67 20 60 69 65 6c | by sett|ing `iel|
|00002440| 6d 2d 70 72 6f 6d 70 74 | 27 2e 0a 2a 20 53 65 74 |m-prompt|'..* Set|
|00002450| 20 60 69 65 6c 6d 2d 64 | 79 6e 61 6d 69 63 2d 72 | `ielm-d|ynamic-r|
|00002460| 65 74 75 72 6e 27 20 74 | 6f 20 6e 69 6c 20 66 6f |eturn' t|o nil fo|
|00002470| 72 20 62 69 6e 64 69 6e | 67 73 20 6c 69 6b 65 20 |r bindin|gs like |
|00002480| 60 6c 69 73 70 2d 69 6e | 74 65 72 61 63 74 69 6f |`lisp-in|teractio|
|00002490| 6e 2d 6d 6f 64 65 27 0a | 2a 20 45 6e 74 72 79 20 |n-mode'.|* Entry |
|000024a0| 74 6f 20 74 68 69 73 20 | 6d 6f 64 65 20 72 75 6e |to this |mode run|
|000024b0| 73 20 60 63 6f 6d 69 6e | 74 2d 6d 6f 64 65 2d 68 |s `comin|t-mode-h|
|000024c0| 6f 6f 6b 27 20 61 6e 64 | 20 60 69 65 6c 6d 2d 6d |ook' and| `ielm-m|
|000024d0| 6f 64 65 2d 68 6f 6f 6b | 27 0a 20 28 69 6e 20 74 |ode-hook|'. (in t|
|000024e0| 68 61 74 20 6f 72 64 65 | 72 29 2e 0a 0a 43 75 73 |hat orde|r)...Cus|
|000024f0| 74 6f 6d 69 73 65 64 20 | 62 69 6e 64 69 6e 67 73 |tomised |bindings|
|00002500| 20 6d 61 79 20 62 65 20 | 64 65 66 69 6e 65 64 20 | may be |defined |
|00002510| 69 6e 20 60 69 65 6c 6d | 2d 6d 61 70 27 2c 20 77 |in `ielm|-map', w|
|00002520| 68 69 63 68 20 63 75 72 | 72 65 6e 74 6c 79 20 63 |hich cur|rently c|
|00002530| 6f 6e 74 61 69 6e 73 3a | 0a 5c 5c 7b 69 65 6c 6d |ontains:|.\\{ielm|
|00002540| 2d 6d 61 70 7d 22 20 6e | 69 6c 5d 29 0a 28 64 65 |-map}" n|il]).(de|
|00002550| 66 61 6c 69 61 73 20 28 | 71 75 6f 74 65 20 69 65 |falias (|quote ie|
|00002560| 6c 6d 2d 67 65 74 2d 6f | 6c 64 2d 69 6e 70 75 74 |lm-get-o|ld-input|
|00002570| 29 20 23 5b 6e 69 6c 20 | 22 8a c0 79 88 c1 5c 6e |) #[nil |"..y..\n|
|00002580| 21 84 0e 00 c3 5c 6e 21 | 88 c4 20 88 60 c5 c6 21 |!....\n!|.. .`..!|
|00002590| 88 60 7b 29 87 22 20 5b | 30 20 6c 6f 6f 6b 69 6e |.`{)." [|0 lookin|
|000025a0| 67 2d 61 74 20 63 6f 6d | 69 6e 74 2d 70 72 6f 6d |g-at com|int-prom|
|000025b0| 70 74 2d 72 65 67 65 78 | 70 20 72 65 2d 73 65 61 |pt-regex|p re-sea|
|000025c0| 72 63 68 2d 62 61 63 6b | 77 61 72 64 20 63 6f 6d |rch-back|ward com|
|000025d0| 69 6e 74 2d 73 6b 69 70 | 2d 70 72 6f 6d 70 74 20 |int-skip|-prompt |
|000025e0| 66 6f 72 77 61 72 64 2d | 73 65 78 70 20 31 5d 20 |forward-|sexp 1] |
|000025f0| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |3]).(def|alias 'i|
|00002600| 65 6c 6d 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 84 0e |elm #[ni|l "..!..|
|00002610| 00 c2 c1 21 71 88 c3 20 | 88 c4 c1 21 87 22 20 5b |...!q.. |...!." [|
|00002620| 63 6f 6d 69 6e 74 2d 63 | 68 65 63 6b 2d 70 72 6f |comint-c|heck-pro|
|00002630| 63 20 22 2a 69 65 6c 6d | 2a 22 20 67 65 74 2d 62 |c "*ielm|*" get-b|
|00002640| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 69 6e 66 |uffer-cr|eate inf|
|00002650| 65 72 69 6f 72 2d 65 6d | 61 63 73 2d 6c 69 73 70 |erior-em|acs-lisp|
|00002660| 2d 6d 6f 64 65 20 73 77 | 69 74 63 68 2d 74 6f 2d |-mode sw|itch-to-|
|00002670| 62 75 66 66 65 72 5d 20 | 32 20 22 5c 0a 49 6e 74 |buffer] |2 "\.Int|
|00002680| 65 72 61 63 74 69 76 65 | 6c 79 20 65 76 61 6c 75 |eractive|ly evalu|
|00002690| 61 74 65 20 45 6d 61 63 | 73 20 4c 69 73 70 20 65 |ate Emac|s Lisp e|
|000026a0| 78 70 72 65 73 73 69 6f | 6e 73 2e 0a 53 77 69 74 |xpressio|ns..Swit|
|000026b0| 63 68 65 73 20 74 6f 20 | 74 68 65 20 62 75 66 66 |ches to |the buff|
|000026c0| 65 72 20 2a 69 65 6c 6d | 2a 2c 20 6f 72 20 63 72 |er *ielm|*, or cr|
|000026d0| 65 61 74 65 73 20 69 74 | 20 69 66 20 69 74 20 64 |eates it| if it d|
|000026e0| 6f 65 73 20 6e 6f 74 20 | 65 78 69 73 74 2e 22 20 |oes not |exist." |
|000026f0| 6e 69 6c 5d 29 0a       |                         |nil]).  |        |
+--------+-------------------------+-------------------------+--------+--------+